home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)t3.d64
/
combinat wars.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
6KB
|
268 lines
0 REM"[141]ADAPTED BY STEVEN DARNOLD, P.O. BOX 201 ALEXANDRA, NEW ZEALAND[141]
1 H[178]0:G[178]0:S[178]0:F[178]0:T[178]3000:[137]6000
2 [153]"RETURNLOAD"
3 [129] F[178]1[164]23
4 S1[178][181]([187](1)[172]34):[139]S1[178]0[167]4
5 [153][166]S1);"."
6 [130]F
20 C[178]0:R[178]0:D1[178]0:S[178]S[170]1
42 V[178][181]([187](1)[172]10):[139]V[178]0[167]42
44 [139]G[178]1[167]V[178]2
50 A[178][181]([187](1)[172]10):B[178][181]([187](1)[172]10)
70 A$[178][196](A):B$[178][196](B)
90 [139]A[178]5[176]B[178]5[167]50
100 [139]A[172]B[179]10[167]50
105 [153]"CONTENERGY=";T;"CMD "
106 [153]"EXPENDED LAST SHOT:";L1;"CMD ":[139]S[177]20[175]T[177]0[167]4000
109 [139]G[178]1[167][137]7007
110 [129] N[178]1[164]2[172]V:[153]:[130]
150 [129]Z[178]1[164]31
160 [153]"DEF))";A$;" X";B$;" WAIT>";
170 [139]R[177][178]1[167]3000
190 [129]W[178]1[164]75:[130]
200 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD WAITCMDCMDCMDCMDCMDCMDCMD";
205 [139]G[178]1[167]300
210 [139]C[177]0[167]240
220 [161]C$:C[178][197](C$)
230 [139]C[178]0[167]300
240 [161]D$:D[178][197](D$)
250 [139]D[178]0[167]300
260 [139]10[172]C[170]D[178]A[172]B[167]R[178]1
270 [139]R[178]1[167]160
280 R[178]2
300 [130]Z
330 [129]K[178]1[164]10
332 Q[178]25:[141]10000
336 Q[178]20:[141]10000
338 [130]K
339 [139]G[178]1[167]7060:Q[178]500:[141]10000
340 [139]H[178]1[167]2000
350 H[178]1
380 [153]" WE'VE BEEN HIT, CAPTAIN!!!
390 Q=1500:GOSUB 10000
400 PRINT"[154]DAMAGE CONTROL REPORT:[146]"
405 PRINT" ALL SHIELDS ARE DOWN AND HAVE
410 [153]"SUFFERED IRREPAIRABLE DAMAGE...
420 PRINT"[155]ONE MORE LIKE THAT AND WE'RE THROUGH!!!":Q=2400:GOSUB10000
422 PRINT"[150]SIR..."
423 PRINT " ENGINEERING REPORTS ENERGY LEVELS
424 [153] " ARE DECREASING AT A DANGEROUS RATE!!":Q[178]2100:[141]10000
426 [139]H[178]1[167]L1[178]300
430 Q[178]1250:[141]10000
435 T[178]T[171]L1
437 [161]X$:[161]Y$:[161]Z$
440 [139]H[178]1[167]2
460 T[178]T[171]D1
470 [139]T[179]0[167]7000
480 [139]S[177]20[167]106
530 [161] X$:[161] Y$:[161] Z$
535 [139]R[178]1[167][137]20
540 R[178]0:C[178]0:D1[178]0
550 [153]"ONONON"
560 [129]X[178]1[164]Z[170]8
570 [153]"";
580 [130]X
590 [137]190
2000 [129]K[178]1[164]20
2252 [151]53280,1:[151]53281,1
2253 Q[178]15:[141]10000
2254 [151]53280,0:[151]53281,0
2255 Q[178]15:[141]10000
2256 [130]K
2258 [153]"LOAD"
2260 Q[178]5000:[141]10000:[137]1
3000 D1[178]D1[170][181]((Z[173]1.8)[174]2):L1[178]D1:P[178]0
3030 [153]""
3032 [129]N[178]1[164]2[172]V
3034 [153]
3036 [130]N
3038 N[178]31
3040 [153]"SYSCMDCMD";
3044 [139]R[178]2[167][153]"";
3048 [139]R[178]2[167][137]3062
3062 [139]P[178]0[167][137]3200
3070 [129] I[178]1[164]38
3090 [153]" CMDCMD";
3120 [130]I
3140 [137]460
3200 [153]"TOCMDCMDCMDCMD";:[141] 9000
3202 [139] N[179]Z [175] R[179]2 [167] 3560
3260 [153]"ANDCMDCMDCMDCMD";:[141] 9000
3262 [139] N[179]Z [175] R[179]2 [167] 3560
3265 [153]"ANDCMDCMDCMDCMD";:[141] 9000
3267 [139] N[179]Z [175] R[179]2 [167] 3560
3270 [153]"POSCMDCMDCMDCMD";:[141] 9000
3272 [139] N[179]Z [175] R[179]2 [167] 3560
3275 [153]"POSCMDCMDCMDCMD";:[141] 9000
3276 [139] N[179]Z [175] R[179]2 [167] 3560
3330 [153]"NEWCMDCMDCMDCMD";:[141] 9000
3332 [139] N[179]Z [175] R[179]2 [167] 3560
3335 [153]"NEWCMDCMDCMDCMD";:[141] 9000
3337 [139] N[179]Z [175] R[179]2 [167] 3560
3370 [153]"FREWAITCMDCMDCMDCMD";:[141] 9000
3372 [139] N[179]Z [175] R[179]2 [167] 3560
3375 [153]"FREWAITCMDCMDCMDCMD";:[141] 9000
3377 [139] N[179]Z [175] R[179]2 [167] 3560
3400 [153]"USRWAITCMDCMDCMDCMD";:[141] 9000
3402 [139] N[179]Z [175] R[179]2 [167] 3560
3405 [153]"USRWAITCMDCMDCMDCMD";:[141] 9000
3407 [139] N[179]Z [175] R[179]2 [167] 3560
3440 [153]"TAB(WAITCMDCMDCMDCMD";:[141] 9000
3560 P[178]1:[137] 3030
4000 [153]"DEFSIR!":Q[178]500:[141]10000
4005 [153]"LONG RANGE SENSORS INDICATE THAT THERE
4010 PRINT"ARE NO MORE TARGETS IN OUR AREA...":Q=2000:GOSUB10000
4050 GOSUB5000
4200 PRINTCHR$(142);:PRINT"[154][147] [200][201][199][200][160][195][207][205][205][193][206][196][160][211][197][206][196][211][160][217][207][213][160][212][200][197][201][210][160][195][207][206][199][210][193][212]-"
4210 PRINT"[213][204][193][212][201][207][206][211][160][198][207][210][160][211][213][195][195][197][211][211][198][213][204][204][217][160][195][207][205][208][204][197][212][201][206][199]
4220 [153]"(null)(null)(null)(null)CLOSE(null)RIGHT$(null)(null)RIGHT$(null)(null)DEF...(null)(null)ATN(null)STR$PEEK(null) ASC(null)(null)CLOSEASC(null)(null)(null)(null)VAL LENATN(null)(null)(null)
4230 PRINT"[212][207][160][193][195][212][201][207][206]....":Q=1500:GOSUB10000
4245 PRINTCHR$(14);:Q=3000:GOSUB 10000
4260 PRINT"[147][194]EST SCORE SO FAR IS:";R1
4280 PRINT"[154][217]OUR SCORE IS:";T;:IFR1=0THEN4285
4283 IFT>R1THENPRINT"[158] (A NEW RECORD!)"
4285 IF T<=R1THENGOTO4300
4290 R1=T
4300 Q=4000:GOSUB 10000:T=3000
4310 PRINTCHR$(142);:PRINT"[147]
4320 [129] Y[178]1[164]30
4330 [153]"SYS* *** *** *** *** *
4340 Q=35:GOSUB10000
4350 PRINT"[150]FLASHFLASHFLASHFLASHFLASH
4355 Q[178]35:[141]10000
4360 [130] Y
4370 [153]"DEFLOAD IMPORTANT MESSAGE FROM FLEET HDQTRS
4380 PRINT"JUST ARRIVED....":PRINTCHR$(142);
4390 PRINT"[154] [194][197][195][193][213][211][197][160][207][198][160][217][207][213][210][160][210][197][195][197][206][212][160][211][213][195][195][197][211][211], [217][207][213]
4400 [153]"ATN(null)VALCLOSE(null)(null)ATN(null)RIGHT$ASCRIGHT$VALSTR$CLOSE(null)(null)CLOSEVAL(null)PEEKATN(null)(null)CLOSE(null)(null)(null)(null)CLOSEATN(null)(null)(null)LEFT$VAL(null)
4410 PRINT"[205][201][211][211][201][207][206]. [208][210][197][211][211] [211][200][201][198][212][146] [212][207] [211][212][193][210][212] [193][199][193][201][206].
4430 Q[178]1200:[141]10000:[153][199](14);
4450 [146]653,1,1:[146]653,1
4470 H[178]0
4480 X[178]5:Q[178]300:[141]10000:[153]"LOAD":S[178]0
4490 [129]W[178]1[164]5
4500 [153]"DEFGET READYCONT ***DEF ";X:X[178]X[171]1:Q[178]700:[141]10000
4510 [130]W:[137]2
5000 I[178]0:N1[178]TI:J[178]0
5020 P1[178][181]([187](1)[172]37):D[178]1:S$[178]". "
5030 P2[178][181]([187](1)[172]37)
5040 P3[178][181]([187](1)[172]37)
5045 P[178][181]([187](1)[172]37)
5060 [153]"OPENLOADNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"[166]12)"(null)TANRIGHT$
5070 PRINT" NCC-1701 [146] [169] [223][146] "
5080 PRINT" [162][162][162][162][162][162][162][162] [162][162][162][146] [223] [209] [209][209] [209][209][209] [209][209] [209] [146][169]
5090 [153][166]10)"ON "[166]11)"STEP WAITSTEP(null) WAITSTEP
5100 PRINTSPC(10)" "SPC(10)"[169] [146][169]
5110 [153][166]10)" "[166]9)"STEP WAITSTEP
5120 PRINTSPC(10)" "SPC(8)"[169] [146][169]
5130 [153][166]10)" WAITNEWNEWNEWNEWNEWNEWNEW WAITSTEP
5140 PRINT" [223] [223][146]
5150 [153]" (null) NCC-1701 WAIT(
5160 PRINTSPC(9)"[223] [146][169]
5165 [153]"DEFGOOD WORK CAPTAIN!!! LETS GO HOME...
5190 A$(0)=" ":A$(1)="[158][172]":B$(0)="[167]":B$(1)="[170]":B$(2)="[182]":B$(3)="[161][146]":B$(4)="[181]"
5200 B$(5)="[180]":B$(6)="[165][146]":B$(7)=" [146]":B$(8)=" ":TN=0
5220 PRINT""SPC(19)A$(I+1)SPC(17)A$(I+1)
5230 IFTN>40THENI=NOTI
5240 PRINT"[158]"B$(J)
5250 J=J+1.5
5260 IFJ>8THENJ=J-8
5270 PRINT""TAB(P2)S$:P2=P2-D:IFP2<DTHENP2=37:PRINT"[145] "
5280 PRINT""TAB(P1)S$:P1=P1-D:IFP1<DTHENP1=37:PRINT"[145] "
5290 PRINT""TAB(P3)S$:P3=P3-D:IFP3<DTHENP3=37:PRINT"[145] "
5300 PRINT""TAB(P)S$:P=P-D:IFP<DTHENP=37:PRINT"[145] "
5320 TN=TN+1:IFTN<85THEN5220
5360 RETURN
6000 POKE53280,0:POKE53281,0:PRINT"[142][147]"
6010 FORI=1TOVAL(RIGHT$(TI$,2)):R=RND(1):NEXTI
6030 PRINT SPC(15):PRINT"[154]RIGHT [150]HERE":Q=1300:GOSUB10000
6040 PRINT"":PRINT:PRINT SPC(20):PRINT" "
6050 Q=500:GOSUB10000
6060 PRINT"":PRINT:PRINTSPC(20):PRINT" NOW"
6090 Q=1500:GOSUB10000
6100 PRINT"[147][150]":PRINTSPC(7);
6120 FOR I=1TO26
6130 PRINT" ";
6140 NEXT
6150 PRINT
6160 FORI=1TO15
6170 PRINTSPC(7);
6180 PRINT" [146] [146]"
6190 NEXT
6200 PRINTSPC(7)
6210 FOR I=1TO26
6220 PRINT" ";
6230 NEXT
6240 PRINT"[145][145][145][145][145][145][145][145][145][145]";
6250 PRINT"[154][146]COMBINATION";
6260 PRINT"[157][157][157][157][157][157][157][157]";:PRINT"WARS"
6270 Q=1000:GOSUB10000
6280 P=0
6290 FORI=1TO3
6300 PRINT"";
6310 PRINTSPC(3*I)
6320 FORJ=1TO24
6330 IFP=1THENPRINT" ";
6340 IF P=1 THEN 6360
6350 PRINT"[158]*";
6360 NEXTJ
6370 NEXTI
6380 IFP=1THEN6400
6390 P=P+1:GOTO6290
6400 P=0
6410 FORI=1TO5STEP4
6420 PRINT"";:PRINTSPC(36-I)
6430 FORJ=1TO24
6440 IFP=1THENPRINT" [157][157]";:IFP=1THEN6470
6460 PRINT"[159][209][157][157]";
6470 NEXTJ
6480 NEXTI
6490 IFP=1THEN6510
6500 P=P+1:GOTO6410
6510 Q=1000:GOSUB10000
6520 PRINT"[147]TOP SECRET MESSAGE FOLLOWS...":Q=900:GOSUB10000
6530 PRINT"[147][129]PRESS SHIFT[146][145][157][157][157][157][157][164][164][164][164][164] TO DECODE."
6540 PRINT"[154][217][207][213][160][200][193][214][197][160][194][197][197][206][160][199][201][214][197][206][160][193][160][198][201][197][204][196][160][208][210][207][205][207][212][201][207][206]
6550 [153]"(null)(null)CLOSE(null)LEFT$VALCLOSE(null)ATN(null)(null)CLOSE(null)ASCCLOSECOMMANDER RIGHT$(null)CLOSE(null)LEFT$VALCLOSE(null)VAL(null)(null)RIGHT$LENVAL
6560 PRINT"[207][198][160][212][200][197][160][198][197][196][197][210][193][212][201][207][206].
6570 [153]"(null)(null)(null)CLOSEATN(null)VALCLOSE(null)(null)CLOSE(null)VAL(null)(null)(null)(null)CLOSE(null)(null)CLOSEASC(null)VALVAL(null)CLOSELEFT$STR$(null)(null)(null)(null)CLOSEATN(null)STR$
6580 PRINT"[212][193][203][197][160][195][207][205][205][193][206][196][160][207][198][160][193][160][215][193][210][208][160][211][208][197][197][196][160][211][212][193][210][211][200][201][208].
6590 [153]"(null)(null)(null)(null)CLOSE(null)RIGHT$(null)(null)RIGHT$(null)(null)CLOSERIGHT$(null)CLOSEVAL(null)(null)(null)VAL(null)VAL(null)(null)CLOSELEFT$ATN(null)ATN(null)STR$(null)(null)(null).
6600 PRINT"[207][206][160][212][200][197][160][215][193][217][160][217][207][213]'[204][204][160][194][197][160][194][210][213][212][193][204][204][217][160][193][212][212][193][195][203][197][196]
6610 [153]"PEEK(null)CLOSELEN(null)(null)PEEKRIGHT$(null)ATN(null)RIGHT$(null)(null)CLOSE(null)(null)(null)(null)VALSTR$(null)VAL(null)CLOSE(null)ATN(null)(null)LENLEFT$VALSTR$CLOSEPEEK(null)
6620 PRINT"[203][204][201][206][199][207][206][160][198][207][210][195][197][211][160][203][206][207][215][206][160][212][207][160][194][197][160][201][206][160][212][200][197][160][193][210][197][193].
6630 [153]"(null)(null)(null)CLOSE(null)(null)(null)(null)RIGHT$(null)VALCLOSEPEEK(null)CLOSE(null)(null)(null)(null)RIGHT$STR$RIGHT$(null)CHR$CLOSE(null)LEFT$VALCLOSEATN(null)(null)(null)VAL(null)CLOSE(null)(null)
6640 PRINT"[212][200][197][160][195][207][205][194][201][206][193][212][201][207][206][211][160][201][206][211][201][196][197][160][212][200][197][205].
6645 [153]"DEFTHENVAL (null) ATN (null) (null) (null) VALWAITFNONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDTOTOTOTOTOTOTOTOTOTOTOTOTO";
6647 [153][163]22)"DEF))) 6 X 7 WAITONCMDCMDCMDCMDCMDCMDCMDTOTOTOTOTOTOTO>CONT
6650 PRINTSPC(5)"[154][203][197][217]-[201][206] [150]42[154] [212][207] [196][197][211][212][210][207][217] [212][200][201][211] [212][207][210][208][197][196][207].
6660 [153][166]5)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
6690 PRINT"[129][201][198][160][217][207][213]'[210][197][160][210][197][193][196][217][160][212][207][160][211][212][193][210][212], [208][210][197][211][211] [211][200][201][198][212][146][145][157][157][157][157][157][164][164][164][164][164].
6700 [146]653,1,1:[146]653,1
6710 [153][199](14);
6720 [146]653,1,1:[146]653,1
6730 [153][199](142);
6740 [153]"LOADHERE THEY COME, CAPTAIN!!
6750 Q=900:GOSUB10000
6760 GOTO 2
7000 G=1:GOTO20
7005 G=1:GOTO20
7007 Q=1100:GOSUB 10000
7010 PRINT "DAMAGE CONTROL REPORT:[146]"
7020 PRINT"ENERGY LEVELS TOO LOW...ALL RESERVES
7030 [153]"SHUNTED TO LIFE SUPPORT SYSTEMS...
7040 Q=1750:GOSUB10000
7045 PRINT"[150]REPORT FROM COMMUNICATIONS:[146]
7050 [153]"SIR.... THE COMMUNICATIONS OFFICER
7055 PRINT"WISHES TO INFORM YOU THAT THE KLINGONS
7056 [153]"DO NOT ACCEPT OUR SURRENDER...
7058 Q=2100:GOSUB10000
7059 PRINT"":GOTO110
7060 GOTO2000
9000 IFH=2THENRETURN
9020 N=N-3
9025 IFR=2THENRETURN
9040 RETURN
10000 FOR D=1 TO Q:NEXT D
10020 RETURN